home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / PRESET.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  823 b   |  30 lines
  1. ' PRESET.BAS
  2. ' This program demonstrates the PRESET statement.
  3.  
  4. CLS
  5.  
  6. INPUT "Please enter a screen mode (0-13):  ", modeNum%
  7. INPUT "Press Enter to begin the hailstorm...", dummy$
  8.  
  9. SCREEN modeNum%
  10. PRINT "Press any key to stop"
  11.  
  12. DO
  13.     RANDOMIZE TIMER
  14.     randCol% = INT(RND(1) * 320)  ' random column number for "hailstones";
  15.                                   '   assumes horizontal resolution of 320;
  16.                                   '   change for higher-resolution modes
  17.  
  18.     FOR i% = 1 TO 199             ' assumes vertical resolution of 200;
  19.                                   '   change for higher-resolution modes
  20.         PSET (randCol%, i%)
  21.         PRESET (randCol%, i% - 1)
  22.        
  23.         FOR j% = 1 TO 35          ' delay loop
  24.         NEXT j%
  25.    
  26.     NEXT i%
  27. LOOP UNTIL INKEY$ <> ""
  28.  
  29.  
  30.